Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/vernon.zip/TERM.PAS

Pascal/Delphi Source File | 1989-03-01 | 396b | 14 lines

     {This function uses the other functions to calculate one term
      of the Taylor series expansion of sin(x) }

      function Term ( X : real;  I :integer) : real;
      var TERM1 : REAL;
      begin

           Term := Neg1(I) * Xval(X,I) / Fact(2 * I  + 1);
           TERM1 := NEG1(I) * XVAL(X,I) / FACT(2 * I + 1);
          {WRITELN('The term is: ', TERM1)}
      end;